
<%
Dim Conn,strSQL 

   Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\wwwroot\calidda.com.pe\database\instalacionc.mdb;"
   Conn.Mode = 3      '3 = adModeReadWrite
'Conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=WIN-MTI6G7HDA2O\APLICACIONESWEB;UID=aesaweb;PWD=webAesa;DATABASE=pruebas"

Conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=wdb1003.chi.us.securedata.net;UID=dbcalidda;PWD=c4lidd4;DATABASE=dbcalidda"

%>